perm filename VP138[C10,LCS] blob sn#464023 filedate 1979-07-31 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	. DEVICE XGP    
C00004 00003	.PAGE←137
C00016 ENDMK
C⊗;
. DEVICE XGP    
.spacing 20*5 mills;
.EVERY HEADING(,{PAGE},)
.AREA TEXT LINES 4 TO 40
.FONT 1 "MBIG[HHA,LCS]"
.font 2 "BMETI[HHA,LCS]"
.font 4 "BMUS[HHA,LCS]"
.font 6 "MBIG[HHA,LCS]"
.FONT 7 "BMORE[HHA,LCS]"
.FONT 8 "BII4[HHA,LCS]"
.!XGPLFTMAR←400
.PORTION MAIN;
.PLACE TEXT;
.PAGE FRAME 138 WIDE 106 HIGH;
.COMPACT
.COUNT PAGE FROM 1 TO 999;
.<< THICKEN UNDERLINE >>
.AT "↓_" ⊂ SNEAK(BEWARE("'177'1'46"))⊃;
.AT "_↓" ⊂ SNEAK(BEWARE("'177'1'51'4'4"))⊃;
.<< Put in a footnote. >>
.
.COUNT FOOTNOTE INLINE FROM 1 TO 999 IN PAGE PRINTING ⊂"*****"[1 TO FOOTNOTE]⊃
.<<	(IF THISDEVICE = "XGP" THEN "%51%*" ELSE "[1]");>>
.
.FOOTSEP ← "__________";
.AT "$$" ENTRY "$"
.	⊂
.	NEXT FOOTNOTE;
.	FOOTNOTE!;
.	SEND FOOT
.		⊂
.		BEGIN "NEXT FOOTNOTE"
.		SELECT 1;
.		SINGLE SPACE
.		SPACING 0 MILLS
.		INDENT 0,0,0;
.		(FOOTNOTE! & " ");
ENTRY
.		END "NEXT FOOTNOTE";
.		⊃;
.	⊃;
.
.TURN ON "%↓_↑↓[&]","α"
.at "!!" txt ";"	⊂
.("↑[%3"&"txt"[1]&"]&↓["&"txt"[2]&"]%*");
.COMMENT ("txt"[1]&"↑[%3"&"txt"[2]&"]&↓["&"txt"[3]&"]%*");
.  ⊃
.PAGE←137
.next page
.begin verbatim
Example 105b.  Harmonic reduction.

.end
.CENTER
%6⊂⊗⊃L[α%0.00,α%-2.56](17,22):N105B.PLT[c10,LCS]⊂⊗⊃%1
.skip 7
.begin verbatim
Figure 105a

.end
.CENTER
%6⊂⊗⊃L[α%0.00,α%-6.10](17,22):105FA.PLT[c10,LCS]⊂⊗⊃%1
.skip 14
.fill INDENT 12
	This portrays the basic progression which will be used in the 
final analysis, but the effect of the chromatic inner voice should not
be entirely ignored.  If the notes D%4S%1, E%4S%1, and G (enharmonic
F double-sharp) of 53-55 are taken as functional leading tones, the
analysis shows the same general picture but with more tonicizations.